home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / xresizer / form2.frm < prev    next >
Text File  |  1998-02-15  |  4KB  |  124 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   2835
  6.    ClientLeft      =   45
  7.    ClientTop       =   360
  8.    ClientWidth     =   6540
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2835
  11.    ScaleWidth      =   6540
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton Command1 
  14.       Caption         =   "Quit"
  15.       Height          =   375
  16.       Left            =   4320
  17.       TabIndex        =   6
  18.       Top             =   2400
  19.       Width           =   1695
  20.    End
  21.    Begin TabDlg.SSTab SSTab1 
  22.       Height          =   2172
  23.       Left            =   240
  24.       TabIndex        =   0
  25.       Top             =   120
  26.       Width           =   6132
  27.       _ExtentX        =   10821
  28.       _ExtentY        =   3836
  29.       _Version        =   327680
  30.       TabHeight       =   420
  31.       TabCaption(0)   =   "Tab 0"
  32.       TabPicture(0)   =   "Form2.frx":0000
  33.       Tab(0).ControlCount=   1
  34.       Tab(0).ControlEnabled=   -1  'True
  35.       Tab(0).Control(0)=   "List1"
  36.       Tab(0).Control(0).Enabled=   0   'False
  37.       TabCaption(1)   =   "Tab 1"
  38.       TabPicture(1)   =   "Form2.frx":001C
  39.       Tab(1).ControlCount=   1
  40.       Tab(1).ControlEnabled=   0   'False
  41.       Tab(1).Control(0)=   "Frame2"
  42.       Tab(1).Control(0).Enabled=   0   'False
  43.       TabCaption(2)   =   "Tab 2"
  44.       TabPicture(2)   =   "Form2.frx":0038
  45.       Tab(2).ControlCount=   2
  46.       Tab(2).ControlEnabled=   0   'False
  47.       Tab(2).Control(0)=   "Text3"
  48.       Tab(2).Control(0).Enabled=   -1  'True
  49.       Tab(2).Control(1)=   "Label2"
  50.       Tab(2).Control(1).Enabled=   0   'False
  51.       Begin VB.ListBox List1 
  52.          Height          =   1230
  53.          ItemData        =   "Form2.frx":0054
  54.          Left            =   360
  55.          List            =   "Form2.frx":0064
  56.          TabIndex        =   5
  57.          Top             =   600
  58.          Width           =   5055
  59.       End
  60.       Begin VB.Frame Frame2 
  61.          Caption         =   "Frame2"
  62.          Height          =   1092
  63.          Left            =   -74520
  64.          TabIndex        =   2
  65.          Top             =   600
  66.          Width           =   4452
  67.          Begin VB.CheckBox Check2 
  68.             Caption         =   "Check2"
  69.             Height          =   252
  70.             Left            =   360
  71.             TabIndex        =   3
  72.             Top             =   360
  73.             Width           =   3132
  74.          End
  75.       End
  76.       Begin VB.TextBox Text3 
  77.          Height          =   288
  78.          Left            =   -72240
  79.          TabIndex        =   1
  80.          Text            =   "Text3"
  81.          Top             =   960
  82.          Width           =   2772
  83.       End
  84.       Begin VB.Label Label2 
  85.          Caption         =   "Enter Your Name"
  86.          Height          =   372
  87.          Left            =   -74760
  88.          TabIndex        =   4
  89.          Top             =   960
  90.          Width           =   2172
  91.       End
  92.    End
  93. End
  94. Attribute VB_Name = "Form1"
  95. Attribute VB_GlobalNameSpace = False
  96. Attribute VB_Creatable = False
  97. Attribute VB_PredeclaredId = True
  98. Attribute VB_Exposed = False
  99.  
  100. Private Sub Command1_Click()
  101.     End
  102. End Sub
  103.  
  104. Private Sub Form_Click()
  105. On Error Resume Next
  106.        For i = 0 To Controls.Count - 1
  107.               Debug.Print Controls(i), Controls(i).Left
  108.         Next i
  109. End Sub
  110.  
  111. Private Sub Form_Load()
  112.     Set AutoControl1.parentForm = Me
  113. End Sub
  114.  
  115. Private Sub Form_Resize()
  116.     AutoControl1.AutoSize
  117.     
  118. End Sub
  119.  
  120. Private Sub SSTab1_Click(PreviousTab As Integer)
  121.    AutoControl1.AutoSize
  122. End Sub
  123.  
  124.